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COMPUTER FAIRE REPORT 

The West Coast Computer Faire was bigger than ever. AMUS 
held two seminars? one for advanced users, led by Bob 
Currier, and another for beginners led by Jim Taylor and 
Steve Elliott. Saturday morning Alpha Micro held a meeting 
with dealers which everyone agreed help to clear up several 
problems. Saturday evening there was an AMUS general 
meeting during which nominations were taken for Officers 
and the Board of Directors. A voting ballot is in the back 
of this newsletter. Please fill it out and return it to 
AMUS. 

Thanks to Dari Wallace, Charles Olson, William Clark, and 
Dr. Paul Guttman, AMUS had a system with a Hawk, Persci, 
two CRTs, and a printer available for demonstrations of 
software and program swapping. Several of us got a crash 
course in bringing up the printer under 4.1, and kudos go 
to Don Jarvis for figuring out how to set the switches on 
the new 64K memory board. Once we got the system up 
Saturday though, it was in constant use by system 
demonstrators and disk copiers. Thanks also to Burl 
Hubbard for keeping an eye on the equipment. 

AMUS NOTES 

The transcripts from the Faire in November will be ready 
soon. They will be available at no cost to those who 
attended and at a small fee for those who didn't but still 
want the transcripts. 

Just a reminder that annual dues are now renewable. Sharon 
will be sending bills to those of you that have been 
members for a year. Please send your dues in promptly. 

We will be happy to print anything you care to send in for 
the newsletter, but to make things easier for us, please 
have the material photo-ready. The worst offenders are 
programs printed with a ribbon that should have been 
changed last December. 

If you consider yourself an expert in some area concerning 
the Alpha Micro, we would like to make use of you at AMUS 
either as an editor of a section of the newsletter, or as a 
problem solver that AMUS members could call on for help. 
As an editor of a special section of the newsletter you 
could submit a one page article each month that would 
demonstrate some technique, or clear up some confusion 
about the use of a command. We would like to see sections 
on AlphaBASIC, Assembly Language, the AMOS operating 
system, and user applications. 

As a problem solver, we would like to set up an area on the 
communications network where AMUS members could drop off 
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programs that are giving them trouble, and let you, the 
problem solver, look over and make suggestions. This is 
not meant to be a programming service, but a last resort 
for getting rid of a bug or a chronic problem. 

As an editor or problem solver, you would, of course have 
free access to the communications network when it comes up. 
(see below) 

AMUS COMMUNICATIONS NETWORK TO BEGIN SOON 

AMUS will be setting up a nation-wide network within the 
next two months that AMUS members will be able to access 
for several uses. The network will be available through 
TYMNET so you will be able to access it through a local 
call in most major cities. The next newsletter will have 
details about prices, available programs, and logon 
procedures. 

The network will have all of the listings for programs sent 
in by AMUS members, back issues of the newsletter (indexed 
for fast access), and (if Skip in Seattle can arrange it) a 
complete set of HELP files. If you have any suggestions, 
or would like to help maintain the files and keep some 
order to things, please contact Steve Elliott at AMUS. 
NEWS FROM ALPHA MICRO 

Alpha Micro will be announcing nine new products at the NCC 
in New York on June 4th. These will include new mass 
storage devices, a 1/2 inch tape drive, a new 
communications controller, and a link board that will allow 
several CPU's to share disk space and communicate with each 
other at. high speed— 

We toured Alpha Micro in Irvine, and got a first hand look 
at the 38,000 square foot facility. Alpha Micro now 
employs more than 100 people, and has passed the 10 million 
mark in annual sales. There are 24 computers being used on 
site with 70 terminals, 13 printers, three word processing 
printers, and Hawks in every corner. Two computers in the 
testing area have 16 Hawks on each. 


3 



Zh^mjbh.hh at 


A /H D IE aV L ,.c 

4059 ,.ja»s4¥filt way n« saattla. wa. 98105 


** SPECIAL NEWSLETTER ** 


This special news letter is ment to bring you up to date on 
the San Francisco Computer Faire meeting and the Los Angeles 
.-Seminar. 

After a long six days "on the road", I am pleased to say that 
AMDEAL accomplished the following: 

1. We are an official organization. The list of Board 
Directors and Committee members is enclosed. The board 
was elected by a single vote from each Company attending 
the Senimar. 

2 . The committees were appointed by the Board from a list 
of volunteers. Each committee was kept small so a repre- 

. sentation of non-attending members could be added. 

,'•** 3. - AMDEAL will be at NCC. 

4. Dues were voted upon and a payment plan instituted. 

We had a meeting prior to the Alpha Micro meeting in San Fran¬ 
cisco at Computer Faire. The assembled group (about "70 dealers) 

voted to present Bill Miller's "White Paper on Alpha Micro" 
to Alpha afte r Alpha held its meeting. Alpha did a super job 

of presenting its "story" and the plans for new products, ser¬ 

vice objectives, etc. (See the copy of the agenda enclosed) 
Alpha flew up 14 people to address and meet the Dealer group. 
While bhe meeting did get very warm at times, both Alpha and 
the dealers left with a better understanding of each others 
problems and position, I think that if our story had ended 
there we wouldn't have the good news we have. 

The attendance, participation, and attitudes shown at the 
Seminar were outstanding. The first part of the first day w as 
attended only by dealers and the AMDEAL organization was 
"hammered iJ out. I want to thank all those who endured the 
birth pains and "hung in there". We plan on having regional 
chapters, so local matters can be discussed and coordinated 
with "Headquarters". * 

Monday afternoon was devoted to the Seminar. We all broke and 
had a tour of all of Alpha Micro, for some it was seeing the 
person at the end of the;phone line, for others it was a first 
full tour. We all attended a most hospitable gathering at the 
Irvine Racquet Club sponsered by Alpha. It was an excellent 
informal chance to bring Alpha up to date on our mornings voting 
and future plans. I hope many real and unreal "walls" were 
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knocked down during that long (land welt) gathering, Alpha did 
itself proud with the food and beverages. 

Tuesday started early and the entire day was Seminar time. 
Len Backus attended most of the day. We had about 72 people 
there with many from the Bast fthats Bast of the rockies) . 

It was an exhausting 6 days but I think all of us represent¬ 
ing Alpha are on the way to some good times. If you haven"t 
joined, do so, we need and want your input too. Volunteer 
for one of the committees by writing” to the chairman. We 
now have a strong national association, lets support it. 

Thanks to all of you for the calls, letters, chewings cut, 
and general support. 

Special thanks to Alpha for its patience and help during 
this nail chewing time. 


P.S. A recap of the seminar will be sent to all those 

who attended. We hope to have a copy for sale for 
those who did not attend. But... we are making plans 
to hold the seminar in the East. 


NCC - NEW YORK 

******** FLASH ********* FLASH *********** FLASH ******* 

Thanks to Stan Viet of ALPHA MICRO BUSINESS SYSTEMS LIMITED 
* of NY, we will have a hard disc (10 Meg) available fcr 
Short demos. It will be in #110 Plaza. Contact us for 
a time...& keep them short. 

AMDEAL will have both a meeting room and a hospitality room 
so you can meet fellow dealers and/or AMDEAL itself. 






A H DC A L ... 

4059 roos.tv«!t way n« saattlt. w a. 98105 


In order for an organization to be able to provide its 
members the services that they need and want, it takes money. 

In Los Angeles we discussed dues at length and voted on a range 
based on budget and services desired. I think the committees 
appointed illustrate the outline of some services to be 
expected. Some services we discussed were: 

♦ Video Training H*ilms (Which will be sold) 

. National Representation at Trade Shows, etc. 

* Standardized Forms for Licensing Agreements, 

Installations etc. 

. Seminars 

. Representation and visits to Alpha Micro 
. Coordinated Technical Information and Testing 
. R & D for Peripherals and Software 
. Others 
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Billmyre Associates, Inc. Consulting Engineers 


April 30, 1979 


Mr. Jim Taylor 
AMUS 

c/o Community Free School 
P. 0. Box 1724 
Boulder, Colorado 80306 

Dear Jim: 

Your AMUS Newsletter Is quite good, but I would like to make a few 
suggestions as follows: 

1. We would like to purchase various types of application software 
but have some difficulty in determining where to purchase and 
whose to purchase. How about a short software index possibly 
to contain application, origin, address and price? It could 

be a simple edited file on your A.M. and would be extreme»v 
useful to AMUS membership. 

2. Is there any possibility of a review of some of the accounting 
packages available? We are interested in recommendations. 

Do you know of any companies offering service via air freight on a nation¬ 
wide basis, on the A.M., terminals, etc.? 

Your recent comment on a I I the PERSCMs In your area being down is believ¬ 
able. We have experienced nothing but trouble. Our PERSCI*S have been 
back to PERSCI once, and in a local shop about nine times in the past 
year. They are down again now for the second week. Possibly the owners 
of these gems could join together in a class legal action to receive some 
help. A Floppy drive has value even with the larger mass storage system, 
particularly for word processing. 

Keep up the good work on the Newsletter. 

Sincerely, 

BILLMYRE ASSX1ATES, INC. 

Richard D. BiI 
President 

RDB/gc 

6201 LA PAS TRAIL. SUITE 240. INDIANAPOLIS. INDIANA 46268 31 7-297-1005 
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Peter Ralph Noel Chatard, Jr., M.D., Inc., P.S. 


ENT SURGERY 
FACIAL PLASTIC SURGERY 


SUITE 304, NORTHWEST MEDICAL ARTS CENTER • 1530 NORTH 115TH STREET • SEATTLE, WASHINGTON 98133 • (206) 364-3334 


27 April 1979 


Mr. Jim Taylor, President 
Alpha Micro Users Society 
P0 Box 1723 

Boulder, Colorado 80306 


Dear Jim, 

Enclosed is my AMUS Survey #1 report. Unfortunately I seem 
to have gotten all of the bad boards that Alpha Micro has 
put out. My system is running fairly well now except for 
problems with an NEC "Spin Writer” purchased by my dealer 
from Input/Output Unlimited. I am not able to get this 
unit to run at 1200 baud. It runs well at 300 but not at 
1200. The unit is in the dealer’s repair shop at this time. 

Does anyone have a terminal driver for the NEC "Spin Writer” 
which would permit bidirectional printing? If I could take 
advantage of the bidirectional printing ability of this unit, 
it would increase greatly its use to me. 

Again I wish to thank you for the help which you gave me at 
the Los Angeles meeting. It became a turning point of my 
understanding and appreciation of the Alpha Micro computer. 

If you plan additional symposia at the novice level, please 
send me notice of your plans. 



yours, 


PETER RALPH NOEL CHATARD, JR., M.D., 


F.A.C.S. 


jw 

enclosure 
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3135 NW Nyssa Court 
Beaverton, OR 97005 
April 29, 1979 


Sharon Greene — Jim Taylor 

P.O. Box 1723 

Boulder, Colorado 80306 


Sharon and Jim: 


I am enclosing a check for $70 to cover registration of myself 
and my son at the WCCF seminar(s). I think we will both attend 
the advanced session, but might like to partake of some parts of 
the novice one too. Please send me two separate receipts for the 
$35 fees, as mine is refundable by my company. My son is Alan 
Brov/n. (CS major, Washington University). 

You mentioned in the AMUS Newsletter just received yesterday that 
you i3ve been having much difficulty with Persci drives. You can 
add my name to that list! I have two dual drives in my system and 
they have been in the shop for repairs four times since last 
June. Right now I operate on only one pair of drives as the 
local BYTE shop has had the other pair for five weeks. Part of 
the problem here has got to be the maintenance section of the 
BYTE shop — they just aren f t handling the problems too well. 

Tell Bob Currier that if he brings a foot locker full of the 
manuals that came out with the 4.1 release he can probably sell 
then easily to AMUS members. I am ordering a set from Alpha 
Micro, but it takes a long time to get shipment from them* If 
Bob brings some to the Faire I’ll buy another set. 


See you there. 
Sincerely, 



Richard T. 



Brown 


/vJrc 
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II| i Champaign Computer Co, 


406 Elm Mahomet, IL 61853 


April 24, 1979 


AMUS 

c/o Community Free School 
P0 BOX 1724 
Boulder, CO 30306 


Here is a quick fix to the PER AMS driver for use with the 
PerSci 299 drives. Since the 299 has one voice coil motor 
for all four disk surfaces, all four surfaces should share 
the same location in the track table. 

A RENAME .PRG-PERAMS 
PERAMS s DVR TO PERAMS.PRG 
jDDT PERAMS 
PROGRAM BASE IS NNNNNK 
PROGRAM SIZE IS 736 
202/ BIC1 1,R1 BICI 3,HI 
420/ BICI 1,R1 BICI 3,H1 
(Control/C out) 
oSAVE PERAMS 

ERASE PERAMS.PRG, SAVE PERAMS.PRG 
^RENAME .DVR-PERAMS 
PERAMS.PRG TO PERAMS.DVR 
Total of 1 file renamed. 


The modified driver will not work with 277 drives anymore. 





A- 

'O—' o 


Bob Rubendunst 
Software Department 
Champaign Computer Co,, Inc. 
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AMUS PROBLEM REPORT FORM (adapted) 
(BITCH.CMD, BITCH.TXT, BITCH.LST) 


NAME James H. Phelan, M.D. DATE Spring 19 n 9 

COMPANY physician's home, later to be used in office 

ADDRESS (office) 18953 Memorial Drive North Suite 0 Humble, Texas ‘ 7 “ 7 338 

SYSTEM CONFIGURATION: 

AMOS Version 4.0 ( Anticipating 4.1 any day ) 

T.E.I. Mainframe MCS-122 #1558 
AMS AM 100 CPU #66’ 7 
AM300 Interface #434 

64K IMS 16K memory boards #24581, #29090, #29208, #29209 

AMS AM200 Disc Controller #685 

Wangco dual floppy model Q n #404 

AM500 Disk controller #314 

CDC Hawk 5+5 Megabyte disk #34900 

FORMAT: AMS 

Soroc IQ120 CRT #24^2 

Multi-term printer with keyboard model 1345A #3' 7 092 

LANGUAGES SPOKEN: Alphabasic, ( Fortran IV, PL/1 ) 

PRIMARY INTEREST: Medical programs 

***************************************************************************** 

14 April 1979 - 

BASIC: 

TAB(x) doesn't go to the x'th column on the screen, but rather to x 
spaces right (inserting a carriage return if necessary) if it follows 
an INPUT statement where only a carriage return is given for input. 


MENU.BAS 

Chuck Growdon of the Byte Shop in Reno offered for sale MENU, a 
generalized menu system. I wrote one for myself and thought it 
too trivial to publish, but apparently not. In keeping with my 
previously expressed philosophy of Cast thy bread.... 
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! MENU.BAS A MULTI-PURPOSE MENU PROGRAM 

ON ERROR GOTO END 
STRSIZ &0 


DIM TITLE?(25) ,PROGRAM? (25) 

INPUT "",FILENAME? iINPUT DATA FILE NAME FROM *.CMD FILE 

START: 

PRINT TAB(-1,0); !CLEAR SCREEN 

OPEN #1, FILENAME?, INPUT ! I use filnam.MNU 

INPUT LINE #1, TITLE? 

PRINT TITLE? 

PRINT 
1 = 1 


LOOP: 

INPUT #1, TITLE?(I),PROGRAM?(I) 

IF TITLE? (I)="" GOTO CHOOSE 
PRINT I;TITLE? (I) 

1 = 1 + 1 

IF I > 20 PRINT CHR(‘ 7 )? "TOO MANY CHOICES!" : GOTO END 
GOTO LOOP 

CHOOSE: 


CLOSE #1 
1 = 1-1 

! RETURN only makes PROGRAM?(0) so ERROR to END: with CHAIN to main menu 
LINENUMBER=0 
PRINT 

PRINT "What is your pleasure?..." 

INPUT"Enter line # of desired program: ",LINENUMBER 
! Entering "99" lets those "In the know" escape to EXEC mode 
IF LINENUMBER = 99 GOTO EXIT 
! Rejects inappropriate line numbers 

IF LINENUMBER < 0 PRINT CHRP) : GOTO START 
IF LINENUMBER > I PRINT CHR( n ) : GOTO START 

CHAIN PROGRAM?(LINENUMBER) 

END: 

PRINT CHR(7) 

CHAIN "M.CMD[2,2]" 

EXIT: 


:<M.CMD[2,2] 
> 

LOG 10,10 
RUN MENU 
M.MNU 


( I name filnam.CMD same as filnam.MNU ) 

( [10,10] is my system's base PPN ) 

( from other PPN■s: RUN MENU [10,10] 

( menu filename determined here. I use filnam.MNU ) 


M.MNU: 


- Welcome to ANDY! —— ( Menu’s title ) 

"GAMES", "PLAY.CMD[2,2]" ( TITLE?(1) , PROGRAM?(l) 

"PERSONAL", "MENU.CMD[30,30]" (2) (2) 

"MEDICAL", "MENU.CMD[40,40]" 

"WORKSPACE", "DSK0:WORK.CMD[2,2]" 

"SYSTEM", "MENU.CMD[60,60]" 

"FUNRUN", "FUNRUN.CMD[2,2]" 


) 


12 





3 rssss: 3 ss 3 sss:ss 3 iss:ss 3 : 383 ss:srsss 3 saaaaaa«s 3 sszssssssssss 3 ssiiais*izas 3 : 

Displays on CRT as: 

- Welcome to ANDY! - 

1 GAMES 

2 PERSONAL 

3 MEDICAL 

4 WORKSPACE 

5 SYSTEM 

6 FUNRUN 

What is your pleasure?... 

Enter line # of desired program: ■ 


Entering ”1" above would CHAIN PLAY.CMD[2,2] 


:<PLAY.CMD 
> 

LOG 20,20 { WHERE I KEEP MY GAMES ) 

RUN MENU[10,10] 

PLAY.MNU ( game programs.MNU ) 


3333S33ZS1 


PLAY.MNU[20,20]: 

*** Computer Games ** 
"BUDGET: 

"FLIGHT: 

"HANGMATH: 

"HILO: 

"LOAN: 

"LUNAR LANDER: 
"MASTER: 

. "QUBIC: 

"SINE: 

“STAR TREK: 
"SUBMARINE: 

"SUMER: 

"WEAVER: 

"XMAS: 

"*** RETURN TO 





A RECURSIVE BUDGETING MODEL", "BUDGET.RUN[20,20]" 

A FLIGHT PLANNING PROGRAM", "FLIGHT.RUN[20,20]" 

'A MULTIPLICATION GAME", "HANGMA.RUN[20,20]" 

A NUMBER GUESSING GAME", "HILO.RUN[20,20]" 

A LOAN AMORTIZATION PROGRAM", "LOAN.RUN [20,20]" 

MOON LANDING SIMULATOR", "LUNAR.RUN[20,20]" 

A COLOR DECODING GAME", "MASTER.RUN[20,20]" 

3-D TIC-TAC-TOE", "QUBIC.RUN[20,20]" 

SINE YOUR NAME", "SINE.CMD[20,20]" 

FIND AND DESTROY THE KLINGONS!", "TREK1.RUN[20,20]' 
HUNT THE SUBMARINE", "SUB.RUN[20,20]’ 

BE THE RULER OF YOUR COUNTRY", "SUMER.RUN[20,20]" 

A PATTERN GENERATOR (can make gift wrapping paper) 1 
LISSAJOUS CHRISTMAS TREE", "XMAS.RUN[20,20]" 

MAIN MENU ***", "M.CMD[20,20]" 




Selecting "13" after above menu displayed would CHAIN WEAVER.RUN[20,20] 
which I wrote to make a specific birthday wrap, then generalized. 

I include it here for others’ enjoyment: 


■WEAVER 
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NEXT I 
EXIT: 

CHAIN "MENU.CMD" 

RANDOM: 

PRINT : PRINT "Pattern will be made by repeating a string "; 
PRINT "of random characters of given length." 

PRINT "A length of 1 will make every character random." 

INPUT "How many characters long do you want the string? ",LENGTH 
IF L£NGTH="" THEN GOTO EXIT 
IF LENGTH=1 THEN GOTO ALL*RANDOM 
FOR I = 1 TO LENGTH 

MESSAGE $[I;1]=CHR(INT(94 *RND(0)+3 2)) 

NEXT I 

GOTO DISPLAY 
ALL'RANDOM: 

FOR 1=1 TO 80*24 

PRINT CHR(INT(94*RND(0)+32) ) ; 

NEXT I 
PRINT 

INPUT "Do you want it printed something like this? ",YESNO$ 

IF UCS(YESNO$[1;1])#"Y" THEN GOTO INPUT 
PRINT "Thinking..."; 

OPEN #1,"WEAVER.LST",OUTPUT 

FOR L=1 TO 66 

FOR S=1 TO 8.5*INCH 

PRINT #1,CHR(INT(94*RND (0) +32)); 

NEXT S 
PRINT #1 
PRINT 
NEXT L 
CLOSE #1 
GOTO PRINTOUT 
END 
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ON ERROR GOTO EXIT 
STRSIZ 500 
RANDOMIZE 
INPUT: 

? "Weaver: A program to make patterns from a repeated message" 

INPUT "How many characters/inch on the printer- 10 or 12? ",INCH 
IF INCH 35 "" THEN GOTO EXIT 

IF INCH # 10 AND INCH # 12 THEN GOTO INPUT 

? : ? "If you want random characters instead of a message, enter 'RANDOM*" 
? : PRINT "Enter your message... Limit 3 lines: " 

INPUT LINE MESSAGE$ 

IF MESSAGE? = THEN GOTO EXIT 
IF UCS(MESSAGE?)="R" THEN GOTO RANDOM 
IF UCS(MESSAGE?)="RANDOM" THEN GOTO RANDOM 
LENGTH=LEN(MESSAGE?) 

DISPLAY: 

POINT=l 
FOR L=1 TO 24 

FOR S=1 TO 80 

PRINT MESSAGE?[POINT;l]; 

POINT=POINT+l 

IF POINT>LENGTH THEN POINT=l 

NEXT S 

FOR S s 81 TO INCH*8.5 

1 PRINT "OFF SCREEN" TO PAPER END 
POINT-POINT+1 

IF POINT>LENGTH THEN POINT*l 

NEXT S 

NEXT L 

PRINT : INPUT "Do you want it printed like this? ",YESNO? 

YESNO?=UCS(YESNC?) 

IF YESNC?[1,1]*"Y" THEN GOTO INPUT 
PRINT "Turn printer ON" 

PRINT " Position paper" 

PRINT " Set printer to";INCH;"characters per inch" 

PRINT " Set RESET and TOP OF FORM" 

PRINT " Set printer ON LINE" 

PRINT : PRINT "Excuse me, this will take some thought..."; 

PRINT "Meanwhile, get the printer ready!" 

OUTPUT: 

OPEN #1,"WEAVER.LST",OUTPUT 
POSITIONS 

PRINT "Still thinking"? 

FOR L « 1 TO 66 

FOR S = 1 TO 8.5*INCH 

PRINT #1,MESSAGE?(POSITION;1]; 

POSITION=POSITION+l 

IF POSITION > LENGTH THEN POSITIONS 

NEXT S 

PRINT #1 

PRINT 

NEXT L 

CLOSE #1 

PRINTOUT: 

PRINT 

INPUT "How many pages do you want? "PAGES 
IF PAGES<1 GOTO EXIT 
FOR 1=1 TO PAGES 

PRINT "Page";I;"of";PAGES;"pages-" 

XCALL SPOOL, "WEAVER.LST" 
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04 / 03/79 


AMUS: 

Enclosed is an Assembler listing for a program that will allow 
the user to salvage a disk with error 10's and 20's. Instead of trying to 
fix these sometimes intermittent problems, the user merely sets aside 
these "bad” records in a series of "bad" record files. Once allocated 
and never referenced the rest of the disk becomes available for use. 

Sincerely, 

Don Schaffer 

c/o Celestial Seasonings 

1780 55th St. 

Boulder, Colo. 80301 
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FIXERR.MAC 

This program "reserves" all nror 10 and error 20 
records in seperate files - one record/file - on the 
user's PPN in the format xxxx.BAD where xxxx is the 
octal number of the bad file. 

RESTRICTIONS: 

1) User must be logged onto bad disk 

2) Bad records should not already be in a file 

3) This program is relocatable but not reentrant 


FLG = 400 

COPY SYS 

MOV 0#JOBCUR,RG 

BIS fJ.DER,JOBTYP(RO) 

LEA R3,SAVE 

MOV <R2)+,(R3)+ 

MOV (R2) +, (R3 ) + 

MOV (R2)+,(R3)+ 

SUB #06,R2 

FSPEC MDB 

INIT MDB 

INIT BDB 

INIT BIT 


; NO abort on read 


Set dskerr 
Save drive arg 
Ditto 
Di tto 
Di tto 

Index arguement 

Set up filename parameters 

Init read dsk DDB 

In it bad file DDB 

Init bitmap DDB 


this section saves the original bitmap, to be modified and restored 
at the end 


MOV BIT+12,R1 

MOV 44 (R1) ,BUFF 

MOV 44(R1),R0 

LEA R4,BITBUF 

DSKBMR BIT,R1 

MOV 4(R1),R3 

MBWU R3,R4 

BIC #1,@R1 

establish number of records 


; Get queue link 
; Load bitmap size 
; Set transfer count 
; Get address to save at 
; Read the bitmap 
; Get buffer address 
; Save old bitmap 
; Clear lock flag 

read 


HTIM 

MOV MDB+12,R1 

MOV 1 2 (R1) , R0 

BIS #FLG, MDB 

CLR R1 

GTDEC 

TST R1 

BEQ OKAY 

CMP R1, R0 

BHIS OKAY 

MOV R1,R0 


Hog time(?) 

Queue link address 
Get max record # 

Set no abort 

Store record # in R1 
Is it 0?? 

If yes branch 
Out of bounds?? 
Branch if yes 
Set # of records 
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MACRO ASSCMBLY LISTING 


PAGE 002 


OKAY: TTYI 


Type reading records mess 


ASCII 

/READING/ 



BYTE 

0 



MOV 

R0,R1 

Set up & of records 


DCVT 

0,62 

Convert and print 


TTYI 

ASCII 

/RECORDS/ 



BYTE 

15,0,0 


i 

this section locates the bad record 



CLR 

MDB+10 

Init first record to read 

AGN : 

CTRLC 

ENDIT 

Control-C?? 


READ 

MDB 

Read record 


CMPB 

MDB,123 

Strange error?? 


BEQ 

ENDIT 

Branch if so 


TSTB 

MDB 

Successful read?? 


BNE 

FIX 

Branch if not 


INC 

MDB+10 

Next record 


CMP 

MDB+10,R0 

Enough read?? 


BLO 

AGN 

Branch if not 

r 

restore good bitmap, hash total, and 

exit 

ENDIT: MOV 

B UFF,R0 

Set transfer count 


LEA 

R4,BITB UF 

Get address of "old” bitm 


DSKBMR 

BIT,R2 

Find address of bitmap 


MOV 

4(R 2) ,R3 

Get address of buffer 


MBWU 

R 4 , R 3 

Transfer real bitmap 


CALL 

TTYI 

SUC1 

And rewrite hash total 


ASCII 

/EXIT/ 



BYTE 

EXIT 

15,0 


i 

create the 

file and reserve the bad record 

FIX: 

PUSH 

R0 

Save read limit 


MOV 

MDB+10,R1 

Get record number 


LEA 

R2,NAME 

Get address 


OCVT 

4,10 

Convert to octal ascii 


LEA 

R 2,NAME 

Index tiie record 


FILNAM 

BDB+24,BAD 

Pack and store in DDB 


MOV 

MDB+ 20,BDB + 20 

Load device name 


MOVE 

MDB+22,BDB+22 

Load drive # 


MOV 

@ #JQBCUR , R0 

Current JCB 


MOV 

JOBUSR(R0} ,BDB + 3 2 

PPN 


PFILE 

CRLF 

BDB 

CHECK!! 


CALL 

CHGBIT 

Change bitmap subroutine 


OPENO 

BDB 

Open for sequential outpu 


CLOSE 

BDB 

Close the file 


CALL 

RSTBIT 

Update saved bitmap 


POP 

R 0 

Get read limit 
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INC 

BR 


MDB +1fl 
AGN 


; Next record 
; Find more bad records 


this subroutine "allocates" all records up to the bad one 


CHGBIT: 

DSKBMR 

BIT,R2 

Read bitmap 


MOV 

4 (R2) ,R4 

Get address of buffer 


CLR 

R0 

Init count 

AGN 1 : 

MOVI 

1 , R1 

Set pattern 

AGN 2: 

CMP 

R 0,MDB + 10 

Hit faulty record?? 


BEQ 

SUC 

Branch if yes 


INC 

R 0 

Keep track of number 


BIS 

R1,@ R4 

Set rec occupied fig 


ASL 

R 1 

Move bit pattern 


BNE 

AGN 2 

If not E.O. word,branch 


IW2 

R 4 

Next word 


BR 

AGN 1 

Do again 

; this 

section 

rewrites the hash total 


SUC : 

BIC 

R1, @ R 4 

Make sure this rec is free 

SUC1: 

PUSH 

R 1 

Save bit pattern 


PUSH 

R 4 

Save address 


MOV 

4 (R 2) ,R4 

Get buffer address 


MOV 

R 2, R3 

Getting hash address 


ADD 

ft 144 , R3 

Offset to hash add. 


CLR 

@R3 

Clear out old hash word 


CLR 

2 (R 3) 

Ditto 


CLR 

R 0 

Initialize count 

AGN 3: 

CMPB 

R0,BUFF 

Added all the words?? 


BEQ 

DONE 

Branch if yes 


INC 

R 0 

Keep count 


ADD 

(R 4 ) + , @ R3 

Add bitmap 


BCC 

AGN 3 

Branch if no carry 


INC 

2 (R3) 

Add in carry 


BR 

AGN 3 

Ag a i n 

DONE: 

BIS 

#2,@R2 

Set rewrite fig 


BIC 

#1,@R2 

Clear lock flag 


DSKBMW 

BIT 

Rewrite bitmap 


POP 

R4 

Restore word address of bad rec 


POP 

RTN 

R1 

Restore bit pattern of bad rec 

; this 

subroutine updates the "original 

" bitmap 

RSTBIT: 

SUB 

4 (R2) , R4 

; Find offset from beginning 


LEA 

R3,BITBUF 

; Index "original" bitmap 


ADD 

R3,R4 

; Offset to word address of bad rec 


BIS 

RTN 

R1 ,@ R4 

; Set rec occupied fig 

MDB: 

BLKW 

24 


BDB: 

BLKW 

24 


BIT: 

BLKW 

24 


BITBUF: 

BLKW 

45 

; Save room for large bitmaps 
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FIXERR [7,7] 


MACRO ASSEMBLY LISTING PAGE 004 


SAVE : 

BLKW 

3 

BUFF: 

WORD 


NAME: 

BLKW 

2 


BYTE 

END 

15,0 
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03/16/79 


AMUS: 

Enclosed is an Assembler listing for a Basic callable 
subroutine to determine number of blocks remaining on a specified 
drive. This might be of some help to users who tend to run a of room 
and consequently lose files with any frequency. It’s based on SYSTAT.PRG 
from Alpha Micro and therefore will not necessarily help those looking 
for blocks of contiguous space. I’d appreciate any comments. 

Thanks, 

Donald F. Schaffer 
Celestial Seasonings 
1780 55th St. 

Boulder, Colo. 80301 



ititiitiiittitttittitritttitriititttittitttttitttiitttiitttiiiri 

FREBLK.MAC 

This subroutine takes as a first arguement, the 
drive number, and the second arguement is the returned 
number of free blocks on that drive.These should be 
mapped in the following manner: 


MAPI DSK,S,2 
MAPI FREE,S,3 


7 

Drives are assumed 

to be 

in AMS FORMAT as well as ; 

7 

being 

the first two drives in 

the 

device table. ; 


* t / i 7 / 

iriiiitiiitiiiiii 

M i M ( 

7 7 7 t i 


BUFF 

= 

512. 


7 

Buffer size 

REC 

= 

616. 


7 

Rec size 

BIT 

= 

39. 


7 

Bitmap size 


COPY 

SYS 





MOV 

@ 8DEVTBL, R0 



Get address of device table 


MOV 

#41400,MDB 



Set flags(pg 24-REF MAN) 


MOV 

# 2,MDB+10 



Record #2 

ACTIVE: 

TST 

6 (R0) 



Active drive? 


BEQ 

NEXT 



No then branch 


MOVB 

@R0,R1 



Load drive I 


LEA 

R2,DEV 



Load storage address 


DCVT 

0,10 



Convert to dec. and store 


MOV 

R3,WHERE 



Save arg. pointer 


CMPB 

@4(R3),DEV 



Match? 


BNE 

NEXT 



If no then branch 


MOVB 

@R0,MDB+22 



load drive # 


MOV 

2(R0),MDB+20 



Load dskname 


BIT 

#10000,@R0 



Mounted? 


BME 

RDY 



If yes then branch 

7 This 

could 

be the place to 

return 

a 9 

say in the drive variable indicating 

; failure oji 

attempt to read 

dsk. 




TTYL 

RTN 

MOUNT 


7 

Failure message 

RDY: 

USREND DEV 



Get high end of memory 


MOV 

DEV-600.,MDB + 2 


Buffer address at high end 


MOV 

IBUFF,MDB+ 4 



Load buffer size 


DSKBMR MDB,R2 



Bitmap read 


BEQ 

SUCES 



Good read 

7 Another likely spot to return a failure code of some sort. 


TTYL 

RTN 

READY 


7 

Lousy read message 

SUCES: 

MOV 

#REC,R1 



Load max record size 


MOV 

#BIT,R3 



Load bitmap size 


MOV 

4(R2),R4 



Address of bitmap 

MORE: 

MOV 

(R4)+,R5 



Get a word of bitmap 

RSET: 

LCC 

0 



preset condition code 


ROR 

R5 



Shift a bit out 


BHIS 

FREREC 



Branch if record free 


DEC 

R1 



Decrease available rec # 

FREREC: 

BNE 

RSET 



Rest of bitmap word zero? 


SOB 

R3,MORE 



If yes get next word 
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BIC 

#1,@R2 


MOV 

#20400,DEV+2 


LEA 

R2,DEV 


DCVT 

0,10 


MOV 

WHERE,R3 


MOV 

12(R3),R4 


MOV 

DEV,(R4)+ 


MOV 

DEV+2,@R4 


DELMEM 

RTN 

MDB+2 

NEXT: 

ADDI 

10,R0 


TST 

@R0 


BNE 

ACTIVE 

; One 

more spot to return an error 


TTYL 

RTN 

INV 

WHERE: 

WORD 


DEV: 

WORD 

0,0 

MDB: 

BLKW 

24 

MOUNT: 

ASCII 

/DISK NOT MOUNTED/ 


BYTE 

EVEN 

0 

READY: 

ASCII 

/DISK MESSED UP/ 


BYTE 

EVEN 

0 

INV: 

ASCII 

/INVALID DSK DRIVE/ 


BYTE 

END 

0 


; Unlock bitmap 

; Pad the end of device w/ b's 
; Load storage address 
; Convert and store record # 

; Restore arg pointer 

; Get 2nd arg address 

; Return 1st word 
; Return 2nd word 
; Delete DDB buffer 

; Next device 
; End of device table? 

; If not go back 

code 
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Plug into a GIGAbyte of software 

Use ALPHASOFT * s program to read DEC floppy disks 

By popular demand ALPHASOFT will now deliver their successful 
RT11FD software package that can read RT11 floppy disks. By 
using this program you have access to the vast store of DEC 
software written for the PDP-11 line of computers. 

We mail a floppy disk to anywhere with the program file and 
a seven page user's manual file. Specify STD or AMS format 
for the disk. Send your address and US$50 to: 

ALPHASOFT 

University Computer Club 
Guild of Undergraduates 
University of WA 
Nedlands 6009 
Western Australia 


RT11FD: a floppy disk reader 


1.0 INTRODUCTION 


This document describes RT11FD which is a program to 
read RT11 formatted floppy disk files. It has sections 
describing the programs* purpose, installation and use. 

The command language of RT11FD is interogatory, so few 
mistakes will be made by users. 


2.0 PURPOSE 


RT11FD will read files from a DEC RT11 format floppy 
disk. It will also give a directory of the files on such a 
disk. It will also read without regard to the file 
structure from the disk. 

DEC stands for Digital Equipment Corporation, which 
manufacturers many computers including the popular PDP-11 
line. "PDP" stands for "Programmable Data Processor" and 
"11" is a model number. The PDP-11 software repertoire is 
vast and sophisticated, so it is natural to want to transfer 
some of this software to our Alpha Micro AM-100 system. 
Further, PDP-11 MACRO programs are largely compatible with 
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AMOS MACRO because the AM-100 has a similar architecture to 
a PDP-11. 

Most AMOS systems running on an AM-100 have 8-inch 
floppy disk drives so it is natural to transfer software 
from a PDP-11 to an AM-100 via floppy disks. 

A popular operating system for small PDP-lls is RT11. 
"RT" stands for "Real Time". Most PDP-11 systems that 
support floppy disks will write files on floppy disks in 
RT11 format. Hence RT11FD is very useful to obtain source 
files from PDP-lls. 
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Qcfjhm.e Systems Consuming Sncatpcitaied 

2701 SPRING GROVE AVE. ♦ CINCINNATI, OHIO 45225 


April 2* 197? 


Gentlemen* 

Most of SSCI's prospective customers are truly amazed to 
discover that it is apparently not normal for their order desk? 
purchasing* receiving* and shipping departments to be accessing 
their customer* inventory* and supplier files simultaneously all 
day long* Their amazement stems from the fact that the software 
currently advertised for the Alpha Micro machine treats 
company-wide sharing of data files in much the same manner as an 
ostrich might — with head stuck firmly in the ground* 

With so much power at our finger tips* it does seem a shame 
that we* the Alpha Micro user community* are unable to exploit 
the full multi-user abilities of the Alpha Micro computer* The 
hardware and the system software are easily capable of permitting 
all users simultaneous access to shared data files — but where 
are the true multi-user application programs? To date all we 
have seen is software like XLOCK or FLOCK* and a lot of wishful 
thinking♦ 

While not denying our profit motive* we at SSCI feel that we 
have a significant contribution that we can make to the whole 
Alpha Micro user community* That contribution is the easy 
availability of our multi-user file-access method as described in 
the enclosed New Product Announcement* By offering this system 
of programs with licensing provisions that actually encourage 
systems designers to build them into applications packages* we 
feel that we are taking an important step in raising the Quality 
of program packages available to all Alpha Micro users* 

Consider some of the advantages available to a systems 
designer for a simple one-time feet 13 Shared data files with 
semi-automatic record interlocks* 23 Record locking in an ISAM 
environment* 33 No ISAM logic in SYSTEM memory* 43 No ISAM 
logic or I/O areas in user partitions* 53 A simple file-reouest 
code and a GOSUB to replace all of the “witchcraft* of Basic's 
ISAM statements* 63 A file structure common to all applications 
programs* and 73 A file structure common to program products 
from different vendors* 


Sincerely* 

Robert C* Strunk 
Systems Manager 
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Qojjhm.0, Systems Consuming Aco/ipo/iatecf 

2701 SPRING GROVE AVE. ♦ CINCINNATI, OHIO 45225 


New Product Announcement 

Software Systems Consulting Incorporated CSSCID has developed a 
multi-user file access system for the Alpha Micro computer* This 
system* which works within the AMOS operating system * allows all 
users simultaneous access to a common data base file while 
providing record interlocking to prevent concurrent updating of 
the same record by more than one user* 

Although currently implemented as a single-volume variable- 
length ISAM file* there are easy and obvious extensions that 
allow this system to handle multi-volume disk files as well as 
file organizations other than ISAM* 

This file access method reauires only 700 bytes of SYSTEM memory 
and a single 16K-byte user area somewhere in memory* By 
eliminating the need for the ISAM logic module and for all of its 
associated I/O areas* this system makes an additional 6K-bytes of 
memory available in each user partition* 

Although this file access system is currently being used with a 
data base of Customer* Vendor* Personnel* Inventory* Contract* 
and Mailing list records* SSCI is offering only the file access 
method at this time* Except for the single 700-byte SYSTEM 
program* the whole system is written in Alpha-Basic so as to make 
the access method easily modified by programmers without 
assembler language skills* 

Licensees will receive the source code for the entire access 
method as well as for some substantive sample application 
programs designed to demonstrate the system's capabi1ities♦ 
Licensees are permitted to include this file access method in 
their program products as long as the access method remains a 
minor part of the entire package* 

Price? $500* Skeptics may arrange for a demonstration at SSCI's 
location* Write for licensing information to? Robert C* Strunk* 
Software Systems Consulting Incorporated* 2701 Spring Grove Av* 
Cincinnati* OH 45225* 
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Innovative Computing is proud to announce July ava 1 1 ab 1 1 1 tv* of 
a Word Processing system Specifically designed for Specification 
Processing in the Construction Specification Institute (CSX) 
format as used bv the Architectural Institute of America (AIA). 

We tee! this s.stem offers the ultimate in Spec i f:cation Processing 
capabilities for any company or individual using the CSI format. 

T he specification writing process has been functionally divided 
into three -distinct t a s c s s 

(A) Selection of the '-e :f lor. s ? Parts-* and F a r a g •* a p n s that wi 1 ! 
male up the specification. 

(B) £d 1 1 1 ns o t the paragr aph te.*--1. 

(C) Printing o* work and final drafts of the Specification. 

The Spec l f i cat i on Processor has been designed t:« male each of these 
tasks as *uick and eas . as possible. 


S PEC P R 0 C E S S 0 R FEAT U R E S 
Contro1 File Processor 


fA) Builds the spec from existing master specifications using 
the "boiler plate" concept. 

f B) Up to three master specs mar be used during the build process. 

(C) Allows inferm i -ins of paragraphs From arv of the masters as 
well as insertion of unique paragraphs. 

CD) Full edit capability on the control file to change job 
related information? change titles? and add or delete 
sections? parts or paragraphs. 

(E) Works with One-part as well as Multi-part Specifications. 

(F) Displays or prints a control file directory. 


Fu11 Scree n Editor 


( A) Fuli screen content editor. 

(B) Extensive list of commands. 

(C) Displays the paragraph tey t in standard CSI format 

(D) Free form entering of text. The Editor reformats each 
line when a word crosses the screen boundrv while the 
typist continues taping. 

(E) The Editor generates all outline indentation level markers. 

(F) A help screen is provided. 

Output Formatter 


(A) Allows several output formats. 

(B) Allows pr-in tins of wo r ?• drafts bi job? sec cion- or part. 
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Mpha Soft 

-*■ Mirrocomfxjier Svstem Software 

Kolx'rf I iik h 
<>214 


403 3lst Street Bellingham wa 98225 


Press Release 


11 May 1979 
COMMON PILOT 


Alpha~Soft announces COMMON PILOT for the Alpha Micro AM-100. COMMON 
PILOT is the proposed standard CAI language that is available for a wide 
range of other microcomputers. Alpha~Soft COMMON PILOT is upwards 
compatible with these other versions, and has many enhancements to 
provide greater computational flexibilitv. Some of the many features cf 
COMMON PILOT are: 


1 . 


Computational featues - COMMON PILOT includes floating point 
numbers, scientific functions, varying length character 
strings, string manipulation, extensive pattern matching, and 
dynamic execution of instructions in character strings. COMMON 
PILOT includes all the features normally found in extended 
BASIC. 


2. Virtual program space - COMMON PILOT interprets the program 
from disk, allowing virtually unlimited program size - limited 
only by available disk space. Instructional courses may then 
be richly branched and conversational without squeezing them 
into available main memory. A typical 45 minute CAI course may 
be 30 to 100K bytes on disk. 

3. Extensive pattern matching and string manipulation provides 
powerful capabilities for examining student answers. Automatic 
features for matching spelling errors and character editing are 
included. 

4. Graphics - COMMON PILOT supports graphics - either from a built 

in graphics interface or an external user supplied interface. 
Easy to use vector graphics are supported, and graphics input 
from the terminal is provided. The AMOS CRT control functions 
are accessible from COMMON PILOT, allowing terminal 

independence. 

5. COMMON PILOT is a reusable, reentrant program, so COMMON PILOT 
can be loaded into system memory allowing simultaneous use by 
many jobs without each job having it’s own copy of COMMON 
PILOT. COMMON PILOT supports any standard AM-100 devices and 
any version of AMOS later than Vj.O. 

6. A catalog of COMMON PILOT courseware is available from 
Alpha~Soft 

7. A single CPU license for COMMON PILOT, including two sample 
COMMON PILOT programs is $300. 


AM-100 and AMOS are trademarks of Alpha Micro. 
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EQUINOX 

COMPUTER SYSTEMS LTD. 

"KLEEMAN HOUSE" 

16 ANNING STREET, 

NEW INN YARD, 

LONDON EC2A 3HB. 

01*739 2387/9. 01-729 4460 

2nd May 1979 

PRESS RELEASE 


SNCBOL4 RELEASED ON THE ALPHA MICRO 


Equinox Computer Systems Ltd. announces the availability of the 
programming language SNOBOL4 on the Alpha Micro AM-100, 16-bit timesharing 
microcomputer. SNOBOL4 is a powerful high level language suited to non- 
numerical programming; manipulation of strings, lists, data structures 
and aggregates is simple and elegant using built-in and user-defined 
functions and operators. The language is also very suitable for the more 
mundane day-to-day requirements of data "massaging". 


The implementation, known as Macro Spitbol, is a compiler. The program 
runs in a system with a minimum of 64 Kbytes memory and can be run 
simultaneously with the other languages on the Alpha Micro (i.e. Basic, 
Pascal, Lisp and the Macro Assembler.) 


SNOBOL4 is available on floppy disk for £200.00 ($400.00) inclusive of 
documentation and sample programs. Airmail to U.S.A. $15 extra. 


Further details from: 

Francis E. Cox 

Equinox Computer Systems Ltd. 

16 Arming Street 

New Inn Yard 

London EC2A 3HB 

England 

Tel: 01-739 2387/9 


OIRECTORS. F.E. COX B.Sc.lEng} W A. DOWLING MS KUSMIRAK F.C.A. 
Registered in England Number 1380152 
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LUMBER RETAILER'S ESTIMATING STSTEM 


_ MAY 15, 1979 

5oftuuare Bulletin 


OVERVIEW : The 3ystem is designed to provide a lumber retailer with the capability 
to prepare a prompt and accurate estimate (price quotation) from a lumber material 
list. The system features special cursor control commands and default options 
which speed up data entry and enhance editing capabilities. The program runs 
stand-alone or interactive with our Lumber Dealer’s Business Management System 
(which includes Inventory, Accounts Receivable, Accounts Payable, Sales Analysis 
and General Ledger). 


OPERATION t The user creates cost tables for all of the lumber items in his 
inventory. These cost tables include (a) a short (or coded) description; (b) 
a long description of the grade, species and finish of the lumber item; (c) the 
unit of measure; (d) a percentage markup associated with that table; (e) the type 


(fig. 1) 


the price 

for each 

dimension and 

length of 

CSD 

STD & 

3TR DOUGLAS FIR S1S2E 

U/M:BF 

MARKUP: 

: 8.0% 

(SPEC & RANDOM) 


1x3 

1x4 

1x6 

1x8 

RL 

0 
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255 

0 

0-6’ 

0 

0 

0 

0 

8* 
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240 
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245 

10* 

225 

245 

244 

260 

12’ 
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240 
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255 


When all cost tables have been created the user enters lumber (material) lists via 
CRT. The information entered should include quantity, dimension, length and the 
short description of the lumber item. Utilizing the short description to access 
the correct cost table, the CRT re-displays the long description, the calculated 
total board footage, the unit price and the extended amount. The lumber list may 
be priced at the time of data entry or auto-priced at a later time. The system 
retains up to 99 lists for each customer on file. The number of customers is 
limited only by disk storage capacity. 

Bulking is the process of merging, sorting and re-pricing one or more lumber lists. 
Many building contractors keep material lists for their "standard floor plans". 

If the lumber distributor has these lists on file the contractor can order an 
estimate by simply supplying the "plan number" and quantity. A typical order 
would read: 


Plan 1 Basic 5 sets 

Plan 1 Elevation A 6 sets 

Plan 5 Elevation C 4 sets 

The lumber distributor can order the system to bulk these plans and print an 
estimate. The process takes only minutes as opposed to many hours of manual 
labor. 

For further information contact: THE DATA BANK 

65 West Green Street, Suite 30 
Pasadena, California 91105 
(213) 795-8611 
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Utilities Package for the Alpha Micro 

Here is a real money saver for those with an Alpha Micro 
Computer. The Peal Oregon Computer Company is releasing an 
Alpha Programmer's Utilities Package. The Utilities Package 
consists of 5 Alpha Basic programs and 5 assembly language 
subroutines, each with source code, object code and 
documentation. 

"’he package includes a very fast cross reference program 
(10 blocks of Alpha Basic source code per minute). A 
renumber, denunber and add number program is also included. 

The time savings from entering source code without line 
numbers will pay for the cost of the package. Another program 
can be used to transfer large disk files to and from 
(multiple) floppy disks. 

The package is $35.no distributed on floppy disk and 
$125.00 distributed on a Hawk cartridge. To take advantage of 
these utilities, order yours today from The Real Oregon 
Computer Company, 207 West 10th in Eugene, Oregon 97401; or 
phone your order to (503) 484-1040. 
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Alpha Programmers Utility Package 

To make your programming effort more productive, here is a 
list of Alpha Microsystem subroutines, Basic and Assembly 
language programs on AMS or IBM Floppy disk and the hawk 
cartridge. 

List of utilities: 

RENUMB - Renumbers and Denumbers Basic programs (very fast 

program). Useful also to put numbers on statements 
entered without them. Well worth the price of the 
package by itself. 

XREF - Generates cross reference listing of Basic programs. 

Processes about 10 blocks of source code per minute 
Very fast. 

RANCPY - Copies "N" blocks of a random file to a second file. 

Very useful for Hard disk to Floppy disk transfer of 
large files. 

HEAD - Enables characters typed on the CRT to be printed on 
the printer. Useful if your printer has no keyboard. 

SAVUE - Saves MEM:IMAGE.VUE files on disk, putting in the 
appropriate LF and CR. 

List of Subroutines: 

XFERBY - Designed to do byte transfers of string variables, 
to get around Alpha Basic's habit of padding spaces 
to the left of an unformatted string transfer. 

XSHELL - Is an efficient and flexible subroutine to sort 
arrays in Basic programs 

XCMAND - Reports if any command file is active. This is 

useful for knowing if any input done will be from 
a command file or whether it is the user who will 
be typing. 

XSCRAN - Scans a string for symbols. This is used in the 
XREF program. 

XTREES - Is a binary tree search for the XREF program. 

All subroutines are clearly documented. The price is $35 
for the floppy disk and $125 for the HAWK version. The price 
includes the source and object programs plus the documentation 
for each utility. The renumbering program is enough to cost 
justify the investment just in time saved typing line numbers. 
Order yours today from: 

The Real Oregon Computer Company 
207 West 10th Avenue 
Eugene, Oregon 97^01 
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-*■&■-* 7Hr. GENERAL ■*'*"* 


"THE GENERAL" 13 A VEP3HTILE, ALL PURPOSE FINANCIAL ACCOUNTING PACKAGE 

DESIGNED SPECIFICALLY FOR USE BY THE ACCOUNTING PROFESSION; HOWEVER, ITS 
OPERATION 13 SO SIMPLE THAT EVEN A NON-ACCOUNTANT SHOULD HAVE NO PROBLEM 
UNDERSTANDING AND OPERATING THE SYSTEM. ALTHOUGH OPERATION OF THE SYSTEM 
REQUIRES NO FORMAL ACCOUNTING TRAINING, IT DOES REQUIRE A GENERAL UNDERSTANDING 
OF BOOKKEEPING PROCEDURES, WHICH ARE INCLUDED IN THE SYSTEM DOCUMENTATION. 
THROUGH PROGRAMMING WE HAVE BEEN ABLE TO ELIMINATE THE NEED FOR A THOROUGH 
UNDERSTANDING OF THE ACCOUNTING CYCLE. AFTER HAVING READ THE OPERATOR'S MANUAL 
AND EXPERIMENTING FOR A FEW HOURS YOU SHOULD BE ABLE TO START SAVING TIME ?/ 
MONEY BY USING "THE GENERAL". 

“THE GENERAL” CAN REDUCED THE TIME IT TALES TO FREPARE A SET OF BOOLS BY 
50X OR MORE. IN EFFECT, YOU USE ABBREVIATED JOURNALIZING METHODS TO ENTER YOUR 
TRANSACTIONS FOR A MONTH, THEN "THE GENERAL" TA(- E5 COMMAND. JUST IMAGINE: NO 

MuRE r’O -TI No * TRIAL Bui. AN* EE* AL WAY'S BALANCING; COMPARATIVE INCOME STATEMENT 
WITH ■; OF SALFS FIGURES FOR BOTH CURRENT PERIOD' & YEAR TO DATE; COMPARATIVE 
BALANCE SHEETS’ A CLEAN, CRISP, NEAT JOURNAL AND LEDGER, AND ON TOP OF T.T ALL 
EVERYTHING IS TCFED AND READY TO GO. YES, IT IS ACTUALLY TRUE, AFTER ENTERING 
THE MONTH'S TRANSACTIONS, AND VERIFYING THE TRIAL BALANCE, IT ONLY TAKES A FLICK* 
OF THE WRIST TO MALE THE GENERAL JOURNAL, GENERAL LEDGER, AND THE FINANCIAL 
STATEMENTS COME ROLLING OUT OF THE PRINTER. RESULT: TIME SAVED - MONEY SAVED. 

NO LONGER DO YOU HAVE TO OWN A 10 MEGABYTE SYSTEM IN ORDER TO PUT YOUR 

ACCOUNTING ON-LINE, "THE GENERAL” RUNS VERY WELL ON A FLOPPY DISK SYSTEM. NO 

LONGER DO YOU HAVE TO BE RICH TO OWN A QUALITY SYSTEM LIKE "THE GENERAL". WE 

BRING THIS SYSTEM TO YOU AT THE AMAZING PRICE OF $495.00 WHICH INCLUDES THE 

SOURCE CODE TO ALL 27 PROGRAMS IN THE SYSTEM, THAT'S ONLY $18.3 3 PER PROGRAM. 
WE CAN OFFER THIS SURPRISINGLY LOW PRICE BECAUSE "THE GENERAL" IS BEING USED 
TODAY BY US AND By SEVERAL OTHER ACCOUNTANTS HERE IN CINCINNATI, IT IS NOT JUST 
A PROGRAM WE WROTE TO SELL. WE WROTE IT WITH OURSELVES IN MIND. NOW YOU KNOW 
IT HAS TO BE GOOD. 

OUR FIRM STANDS BEHIND THE SOFTWARE & DOCUMENTATION WE SELL AND WE ARE 
ALWAYS WILLING TO ANSWER QUESTIONS BY PHONE. THIS IS A DISTINCT ADVANTAGE OVER 
OTHER FIRMS OFFERING SOFTWARE SIMILAR TO OURS. WE ALSO INVITE USER INPUT ON 
FURTHER ENHANCEMENTS WE CAN MAKE TO OUR SOFTWARE. WE ARE OF THE OPINION THAT A 
PROGRAM IS NEVER FINISHED? WE ARE CONSTANTLY STRIVING TO IMPROVE UPON OUR 
ALREADY EXCELLENT SOFTWARE. THESE PROGRAMS ARE TRIED AND PROVEN; THEY HAVE BEEN 
IN USE IN OUR OWN FIRM FOR ALMOST A YEAR NOW. FUTURE RELEASES WITH UPDATES TO 
"THE GENERAL", AS WELL AS NEW SYSTEMS WHICH WILL INTERFACE TO "THE GENERAL" WILL 
BE MADE AVAILABLE TO "THE GENERAL" USERS AT A NOMINAL COST. THE NEW PROGRAMS 
CURRENTLY UNDER DEVELOPMENT INCLUDE "THE PAYMASTER", "THE CHECK-WRITER", 
ACCOUNTS RECEIVABLE, AND FIXED ASSETS ACCOUNTING. 

WE ARE LOOKING FORWARD TO HEARING FROM YOU. PLEASE CALL OR WRITE US 
FOR AN INFORMATION SHEET ON "THE GENERAL", OR ENCLOSE A CHECK FOR $25 AND WE 
WILL SEND YOU THE COMPLETE DOCUMENTATION ON "THE GENERAL". IF YOU THEN DECIDE 
TO PURCHASE "THE GENERAL", THE $25 WILL APPLY TO THF PURCHASE PRICE. 


HIGGINS & JETER 
ACCOUNTING S' DATA PROCESSING 
1825 MAPLE AVENUE 
CINCINNATI, OHIO 45212 
(513) 731-1268 
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COMPUTER CENTER 
ORLANDO 


6220 SOUTH ORANO P BLOSSOM TRAIL 
ORLANDO , FLORIDA J26O0 
(306) 661-0913 


April 17, 1979 


Dear 


The Computer Center in conjunction with IDS, Inc. of 
Orlando is pleased to announce the immediate availability of a 
complete ”Flmanelal Accounting Package” for professional 
Accountants• 

The Financial Accounting Package was developed by a 
group of practicing Accountants with technical assistance from 
IDS. Consequently, this package is tailored to meet the special 
needs of Accountants. The package is written for the AM-100 16 
Bit data processor, it is fully capable of operating in a 
multi-user multi-tasking environment. Most important is that this 
Financial Accounting Software has been functional in Accountants 
offices for more than three years. 

Our package offers you and your staff the most valuable 
financial data reporting for each client along with the ability 
to print a Disclaimer, Footnotes, Funds Worksheet and Statement. 
For the Accountant who handles payrolls this packages is designed 
with you in mind. The Software is fully documented and we train 
your staff to operate the system. 

Now that the 1978 tax season has ended, consider how 
much easier 1979's year end would be with your own computer 
system to generate all needed reports. Increase your profits next 
year by handling more accounts and offering your present clients 
more for their dollars. 


HARDWARE / SOFTWARE SYSTEMS OFF-THE-SHELF 
• Professions! • Business 


35 



The Computer Center has not only the most time proven 
software in this field available; but also we have taken the time 
to put together a system that uses the best computer hardware 
available. The AM-100 system uses the CDC 10 Mbyte rigid disk for 
storage, the TTY Model 40 line Printer, and the Hazel tine 1500 
Terminal with numeric keypad. 


This system as shown in the enclosed article is 
completely expandible* We are the only Computer Company that has 
published price lists and the introductory price of this system 
including software in the Orlando area is twenty-four thousand or 
six hundred a month. The Package is also available on smaller, 
lower cost storage-media. Please request our pricing on these 
systems. I will be pleased to bring the documentation by your 
office and then arrange for a personal demonstration of the 
Financial Accounting Package and the most powerful computer on 
the market today priced with the smart businessman in mind. 


Sincerely, 

Claudia Kelson 
Ma rketing 
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BALLOT 


BOARD OF DIRECTORS 

__ Stanley Veit, Computer Mart of New York 
__ Chuck Growden, Byte Shop of Reno 

___ Guruprem Khalsa, Khalsa Computer Systems, Pasadena 
__ John Lindsey, David Abell, Inc., Los Angeles 
_ Ken Bivin, KB Communications, Seattle 
__ Ron Eade, The Computer Center, San Diego 
__ John Zielinski, Arizona Computer Systems, Jerome 


Please vote for three 
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OFFICERS 


President 

___ Jim Taylor, Data Processing Consulting, Boulder 


Vice President 

__ Eugene Platt, North American Title Co, Houston 


Second Vice President 
Burl Hubbard, Lubbock 


Secretary/Treasurer 

Dick Leach, Golden, Colorado 


Please return your ballot to Sharon at AMUS, P.0. Box 
1723, Boulder, Colorado 80306, 
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ALPHA MICRO USERS SOCIETY - Membership Form 


Please fill in as much information as possible so that we can provide you with the 
best possible service. 

Name _Company_ 

Address _ 

City _State _Zip_ 

Business Phene _Heme phone _ 

Circle one: Q^/Iease/Thinking 

Check all applicable: Dealer O EM_User: Corporate. o r Individual _ 

Describe Equipment:_ _____ 

Fill out a membership form including membership fee for each person that wishes to 
communicate with the Problem Coordinator. The annual dues are $25.00 per member. 

0 AMUS may use my name for mailing lists Make check payable to AMUS 



AMUS 

c/o Community Free School 

P 0 Box 1724 

Boulder, Colorado 80306 
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